;;; af
;;; Language: R5RS

(define (a-plus-abs-b a b)
  ((if (> b 0) + -) a b))

;O procedimento acima realiza uma avaliação para verificar se o segundo parâmetro da definição, 'b', é maior que zero. Sendo maior, a função '+' é aplicada sobre os parâmetros 'a' e 'b'. Sendo menor, a função '-'  é aplicada sobre os parâmetros.

; > (a-plus-abs-b 1 2)
; 3
; > (a-plus-abs-b 1 -2)
; 3
; > (a-plus-abs-b -1 -2)
; 1
; > (a-plus-abs-b -1 2)
; 1